10 I=679
20 READA:IFA=256THEN1000
30 POKEI,A:I=I+1:GOTO20
679 DATA169,188,141,48,3,169,2
686 DATA141,49,3,169,195,141,50
693 DATA3,169,2,141,51,3,96
700 DATA162,8,134,186,76,165,244
707 DATA162,8,134,186,76,237,245,256
1000 PRINT"[147]       DISK DEFAULTER ACTIVATED"
1010 PRINT"  USE RUN/STOP RESTORE TO DEACTIVATE"
1020 PRINT"      TYPE SYS 679 TO REACTIVATE"
1030 SYS679:NEW